Make epa-mail-encrypt cope with read-only text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d131617ba06e27b915f93b42108ad85a5bc9fa1c..cf39a8301c81b9e5adefa70e3f8c4bc87f7afd69 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-03-10  Richard Stallman  <rms@gnu.org>
+
+       * epa-mail.el (epa-mail-encrypt): Bind inhibit-read-only.
+
 2012-03-10  Chong Yidong  <cyd@gnu.org>
 
        * emulation/cua-rect.el (cua--init-rectangles):

diff --git a/lisp/epa-mail.el b/lisp/epa-mail.el
index 22bfe03cab04ced34b24d96992613f731e2af293..be5b849651cb0a1d6234acef71f892549a116dba 100644 (file)
--- a/lisp/epa-mail.el
+++ b/lisp/epa-mail.el
@@ -192,7 +192,9 @@ If no one is selected, symmetric encryption will be performed.  "
             (if sign
                 (epa-select-keys context
                                  "Select keys for signing.  "))))))
-  (epa-encrypt-region start end recipients sign signers))
+  ;; Don't let some read-only text stop us from encrypting.
+  (let ((inhibit-read-only t))
+    (epa-encrypt-region start end recipients sign signers)))
 
 ;;;###autoload
 (defun epa-mail-import-keys ()